home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 16 / 64er_Magazin_Sonderheft_16_19xx_Markt__Technik_de_Side_A.d64 / twm-listing 6 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  283b  |  18 lines
  1. 10 sys 32168
  2. 20 :
  3. 30 dim d$(30)
  4. 40 for i=1 to 30
  5. 50 d$(i)="menuepunkt"+str$(i) :print spc(13);d$(i);
  6. 60 next i
  7. 70 :
  8. 80 (NULL)1,4,15,20,35,1,0,"menu-demo"
  9. 90 (NULL)1,6,128
  10. 100 (NULL)1
  11. 110 :
  12. 120 m=20
  13. 130 (NULL) d$(1),d$(30),0,128,12,1,m
  14. 140 (NULL)
  15. 150 :
  16. 160 if m=0 then (NULL) 12,1,"ausstieg" :end
  17. 170 (NULL) 12,1,"gewaehlt: "+d$(m)
  18.